(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     53011,       1382]
NotebookOptionsPosition[     51103,       1349]
NotebookOutlinePosition[     51489,       1366]
CellTagsIndexPosition[     51446,       1363]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.817496800058392*^9, 3.817496801305118*^9}, 
   3.824012658387802*^9},
 CellLabel->
  "In[132]:=",ExpressionUUID->"71db4609-c829-4834-b1c4-1c1feed1af1c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\:76ee\:6807", ":", "\:8f93\:5165\:4e24\:4e2a\:8fb9\:957f"}], 
    "\:ff1a", 
    RowBox[{
    "l3", " ", "l4", " ", 
     "\:8f93\:51fa\:516d\:4e2a\:8282\:70b9\:5750\:6807"}], "\:ff1a", 
    RowBox[{"{", 
     RowBox[{"v1", ",", "v3", ",", "v5", ",", "v2", ",", "v4", ",", "v6"}], 
     "}"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\:8981\:6c42", ":", "1"}], ")"}], " ", 
     "\:4e3b\:51fd\:6570Vertices", " ", 
     "\:53ef\:4ee5\:53e6\:5b58\:7a0b\:5e8f\:5305", " ", 
     RowBox[{"vertice", ".", "wdx"}]}], "\:ff0c", 
    "\:53ef\:4ee5\:5355\:72ec\:4e8e\:5176\:4ed6\:7a0b\:5e8f\:8fd0\:884c"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"     ", "2", ")"}], " ", 
    "\:4e3b\:51fd\:6570\:7b26\:5408\:67f1\:578b\:5bf9\:79f0\:6761\:4ef6"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"     ", "3", ")"}], " ", 
    "\:8f93\:51fa\:8282\:70b9\:6784\:6210simplicial", " ", "complex", " ", 
    "\:7b26\:5408\:4e09\:4ef6\:4e0d\:7b49\:5f0f\:548c\:7279\:5b9a\:7684\:5b9a\
\:5411"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65701", "\:ff1a", " ", 
    RowBox[{"\:8ddd\:79bb", " ", 
     RowBox[{"MVdistance", "[", 
      RowBox[{"VR_", ",", "a_", ",", "b_"}], "]"}], "  ", "\:8f93\:5165"}], 
    "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", 
    RowBox[{"b", " ", "\:8282\:70b9\:7f16\:53f7", " ", "\:8f93\:51fa"}], 
    "\:ff1a", 
    RowBox[{"\:95f5\:6c0f\:8ddd\:79bb", " ", "\:4f9d\:8d56"}], "\:ff1a", 
    "\:65e0"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65702", "\:ff1a", " ", 
    RowBox[{
     RowBox[{"Vol", "[", 
      RowBox[{"VR_", ",", 
       RowBox[{"{", 
        RowBox[{"a_", ",", "b_", ",", "c_", ",", "..."}], "}"}], ",", "E"}], 
      "]"}], "  ", "\:8f93\:5165"}], "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", "b", ",", 
    RowBox[{
     RowBox[{
     "...", " ", "\:8282\:70b9\:7f16\:53f7", " ", "E", " ", "\:6b27\:5f0f"}], 
     "=", "1"}], "\:ff0c", 
    RowBox[{"\:6d1b\:4f26\:5179", "=", 
     RowBox[{"0", " ", "\:8f93\:51fa"}]}], "\:ff1a", 
    RowBox[{"n\:7ef4\:4f53\:79ef", " ", "\:4f9d\:8d56"}], "\:ff1a", "CMM"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65703", "\:ff1a", " ", 
    RowBox[{
     RowBox[{"CMM", "[", 
      RowBox[{"VR_", ",", 
       RowBox[{"{", 
        RowBox[{"a_", ",", "b_", ",", "c_", ",", "..."}], "}"}]}], "]"}], "  ",
      "\:8f93\:5165"}], "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", "b", ",", 
    RowBox[{"...", " ", "\:8282\:70b9\:7f16\:53f7", " ", "\:8f93\:51fa"}], 
    "\:ff1a", 
    RowBox[{"n", " ", "Caley", " ", "Matrix", " ", "\:4f9d\:8d56"}], "\:ff1a",
     "\:65e0"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8f85\:52a9\:51fd\:65704", "\:ff1a", " ", 
    RowBox[{"\:8ddd\:79bb", " ", 
     RowBox[{"MVvector", "[", 
      RowBox[{"VR_", ",", "a_", ",", "b_"}], "]"}], "  ", "\:8f93\:5165"}], 
    "\:ff1a", 
    RowBox[{"VR", " ", "\:516d\:8282\:70b9\:5750\:6807"}], "\:ff0c", " ", "a",
     "\:ff0c", 
    RowBox[{"b", " ", "\:8282\:70b9\:7f16\:53f7", " ", "\:8f93\:51fa"}], 
    "\:ff1a", 
    RowBox[{"\:77e2\:91cf\:5750\:6807", " ", "\:4f9d\:8d56"}], "\:ff1a", 
    "\:65e0"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"--", 
    RowBox[{"--", 
     RowBox[{"--", 
      RowBox[{"--", 
       RowBox[{"--", 
        RowBox[{"--", 
         RowBox[{"--", 
          RowBox[{"--", 
           RowBox[{"--", 
            RowBox[{"--", 
             RowBox[{"--", 
              RowBox[{"--", 
               RowBox[{"--", 
                RowBox[{"--", 
                 RowBox[{"--", 
                  RowBox[{"--", 
                   RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{"--", 
                    RowBox[{
                    "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\
}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\:4e3b\:8981\:6570\:636e\:63a5\:53e3", ":", " ", "1"}], ")"}], 
    " ", "VR", " ", "\:516d\:8282\:70b9\:5750\:6807", " ", 
    RowBox[{"(", "v6\:672a\:786e\:5b9a\:524d\:4e3a0", ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"               ", "2", ")"}], " ", "vid", "  ", "VR", " ", 
    "\:4e2d\:7ed3\:70b9\:7f16\:53f7", " ", 
    RowBox[{"(", "v6\:672a\:786e\:5b9a\:524d\:4e3a0", ")"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"               ", "3", ")"}], " ", 
     RowBox[{"SYM", "[", 
      RowBox[{"[", 
       RowBox[{"inputs", ",", "edges", ",", "vertices"}], "]"}], "]"}], " ", 
     "l1"}], ",", "l2", ",", "l3", ",", "l4", ",", 
    "l5\:5bf9\:5e94\:7684edge"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"               ", "4", ")"}], " ", 
    RowBox[{"VRS", "[", 
     RowBox[{"[", 
      RowBox[{"simplices", ",", "vertices"}], "]"}], "]"}], 
    "\:6bcf\:4e00\:4e2asimplex\:7684vertices\:5750\:6807"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8240330633124676`*^9, 3.8240331046389475`*^9}, {
  3.8240760608112636`*^9, 3.8240760637007256`*^9}, {3.8240761113780165`*^9, 
  3.82407616691424*^9}, {3.824076213330163*^9, 3.8240765652215614`*^9}, {
  3.824076599169849*^9, 3.8240766677220197`*^9}, {3.8240768421432824`*^9, 
  3.824076843951989*^9}, {3.8240786038367953`*^9, 3.824078622270731*^9}, {
  3.8240786655711813`*^9, 3.8240788079976416`*^9}, {3.82407902758671*^9, 
  3.8240791140449457`*^9}, {3.8240793922845144`*^9, 3.8240795348927245`*^9}, {
  3.8240942549244757`*^9, 3.8240943841245704`*^9}, {3.8240949925116296`*^9, 
  3.8240949969186883`*^9}, {3.8241058881729937`*^9, 3.8241058943466487`*^9}, {
  3.824106106353774*^9, 3.8241061999885283`*^9}, {3.825470601225709*^9, 
  3.825470689628818*^9}, {3.825470866823535*^9, 3.825470900990593*^9}, {
  3.826533614689082*^9, 3.8265336185960584`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"398a21c6-c9a3-4ee1-8c7d-444260a91e72"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.825470602624566*^9, 3.825470603928671*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"5c9d6367-2d9b-4bcb-98f8-5cb4614f2d42"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.824012670220211*^9, 3.8240126766254797`*^9}, {
  3.8240130924222403`*^9, 3.824013093975934*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"e1070aa4-d539-4b8c-b081-7402b6b16374"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tempfile13", "=", 
   RowBox[{"FileNameJoin", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directory", "[", "]"}], ",", "\"\<vertice.wdx\>\""}], "}"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8240126898708444`*^9, 3.824012691646351*^9}, {
  3.824013028331542*^9, 3.8240130299380026`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"d70282d0-7995-4523-b08c-3a45a4e5f7a1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"vid", "=", 
    RowBox[{"{", 
     RowBox[{"1", ",", "3", ",", "5", ",", "2", ",", "4", ",", "6"}], "}"}]}],
    ";"}], 
  RowBox[{"(*", 
   RowBox[{"order", " ", "of", " ", "vertices"}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.8240367179852905`*^9, 3.8240367296134872`*^9}, {
  3.8240768535038395`*^9, 3.824076871245906*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"58628041-6b46-49e7-b651-4abb3f7a373a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SYM", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "5"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "4"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "6"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "6"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"2", ",", "6"}], "}"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"4", ",", "6"}], "}"}], "}"}]}], "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"[", 
    RowBox[{"[", 
     RowBox[{"inputs", ",", "edges", ",", "vertices"}], "]"}], "]"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Sid", "=", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4", ",", "2"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8240768111625214`*^9, 3.824076830308875*^9}, {
  3.824076895049386*^9, 3.8240769055459967`*^9}, {3.824104827692011*^9, 
  3.8241048421226134`*^9}, {3.8254701131347017`*^9, 3.825470114869795*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"e80a3ff6-3336-4d4f-a00d-95c9256a2780"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Vertex", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", " ", 
             RowBox[{"\[Sqrt]", "5"}]}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"1", "/", "4"}]]}], ")"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["3", 
           RowBox[{"1", "/", "4"}]]}], " ", 
         RowBox[{"\[Sqrt]", "5"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", "5"}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"1", "/", "4"}]]}], ")"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", " ", 
             RowBox[{"\[Sqrt]", "10"}]}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"3", "/", "4"}]]}], ")"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", "5"}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"3", "/", "4"}]]}], ")"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", "5"}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"1", "/", "4"}]]}], ")"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["3", 
              RowBox[{"1", "/", "4"}]], " ", 
             RowBox[{"\[Sqrt]", "10"}]}], ")"}]}], ")"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", 
             RowBox[{"(", 
              RowBox[{"5", "/", "2"}], ")"}]}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"3", "/", "4"}]]}], ")"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", "5"}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"3", "/", "4"}]]}], ")"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Sqrt]", "5"}], ")"}], "/", 
           SuperscriptBox["3", 
            RowBox[{"1", "/", "4"}]]}], ")"}]}]}], "}"}]}], "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"vertices", " ", "v1"}], "\[Rule]", " ", 
    RowBox[{"v5", " ", "from", " ", "previous", " ", "computation"}]}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.824077919989416*^9, 3.8240779569325943`*^9}, 
   3.8241070499760647`*^9},
 CellLabel->
  "In[140]:=",ExpressionUUID->"68b8b8fb-cf6f-4209-98ef-b208f8ed33c4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"MVdistance", "[", 
    RowBox[{"VR_", ",", "a_", ",", "b_"}], "]"}], ":=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ge", "=", 
       RowBox[{"DiagonalMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"VR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"vid", ",", "a"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
        RowBox[{"VR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"vid", ",", "b"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], ".",
       "ge", ".", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"VR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"vid", ",", "a"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
        RowBox[{"VR", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"vid", ",", "b"}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{3.8254708064384265`*^9},
 CellLabel->
  "In[141]:=",ExpressionUUID->"d2601902-6df0-4653-a0ef-ed3cfe9da0ae"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MVvertor", "[", 
   RowBox[{"VR_", ",", "a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"ge", "=", 
      RowBox[{"DiagonalMatrix", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1", ",", "1", ",", "1"}], "}"}], "]"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"VR", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{"vid", ",", "a"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
      RowBox[{"VR", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"Position", "[", 
          RowBox[{"vid", ",", "b"}], "]"}], "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.8254708124022675`*^9, 3.825470850898408*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"869c2317-2333-40f1-90bf-ed23fe7798fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SOL", "[", 
   RowBox[{"Vertex_", ",", "l3_", ",", "l4_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"VK", ",", "Sol", ",", "t", ",", "x", ",", "y", ",", "z"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"VK", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"Vertex", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Sol", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"4", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l4", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"VK", "/.", "#"}], "&"}], ",", "Sol"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SOLc", "[", 
   RowBox[{"Vertex_", ",", "l3_", ",", "l5_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"VK", ",", "Sol", ",", "t", ",", "x", ",", "y", ",", "z"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"VK", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"Vertex", ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Sol", "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"5", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"5", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l5", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "1", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "2", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}], "&&", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "1"}], "]"}], "]"}], ",", 
            RowBox[{"SYM", "[", 
             RowBox[{"[", 
              RowBox[{"3", ",", "3", ",", "2"}], "]"}], "]"}]}], "]"}], 
          "\[Equal]", 
          RowBox[{"l3", "^", "2"}]}]}], ",", 
        RowBox[{"{", 
         RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Map", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"VK", "/.", "#"}], "&"}], ",", "Sol"}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8240958754571447`*^9, 3.8240959035554795`*^9}, {
  3.8241026361341977`*^9, 3.8241027910507116`*^9}, {3.8241072484247894`*^9, 
  3.824107306208644*^9}, {3.824107413763712*^9, 3.824107450919898*^9}, {
  3.825470944110383*^9, 3.825470965974867*^9}, {3.8254801479575095`*^9, 
  3.8254802051874695`*^9}, {3.8254827315560765`*^9, 3.8254827657551126`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"ad538921-e09d-4dd7-a1d4-c57ba0f92e3f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CMM", "[", 
   RowBox[{"VK_", ",", "x_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"N", "=", 
       RowBox[{"Length", "[", "x", "]"}]}], ",", "DD"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"DD", "=", 
      RowBox[{"PadLeft", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"MVdistance", "[", 
           RowBox[{"VK", ",", 
            RowBox[{"x", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"x", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "N"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "N"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"N", "+", "1"}], ",", 
          RowBox[{"N", "+", "1"}]}], "}"}], ",", "1"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"DD", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "0"}], ";", 
     "\[IndentingNewLine]", "DD"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",\

 CellChangeTimes->{{3.8241026194638987`*^9, 3.8241026311047697`*^9}, {
   3.8241028861446824`*^9, 3.824103042260583*^9}, 3.824103099980062*^9, {
   3.8241036384806023`*^9, 3.824103641159957*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"19b11aa4-8a24-438f-b35a-d67d7ad30830"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Vol", "[", 
   RowBox[{"VK_", ",", "x_", ",", "E_"}], "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"DD", ",", 
      RowBox[{"N", "=", 
       RowBox[{
        RowBox[{"Length", "[", "x", "]"}], "-", "1"}]}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"DD", "=", 
      RowBox[{"CMM", "[", 
       RowBox[{"VK", ",", "x"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Sqrt", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"N", "+", "E"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", "^", "N"}], "*", 
          RowBox[{
           RowBox[{"Factorial", "[", "N", "]"}], "^", "2"}]}], ")"}]}], "*", 
       RowBox[{"Det", "[", "DD", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8241058686015863`*^9, 3.824106007780486*^9}, {
  3.8241060675060606`*^9, 3.8241060688828697`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"d0e2b5ef-98e0-4c6f-81b9-ad4ff82e8a0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Vertices", "[", 
   RowBox[{
   "vid_", ",", "Sid_", ",", "Vertex_", ",", "l3_", ",", "l4_", ",", "l5_"}], 
   "]"}], ":=", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"VK", ",", "A"}], "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"A", "=", 
      RowBox[{"Map", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"vid", "/.", 
          RowBox[{"#", "\[Rule]", "Nothing"}]}], "&"}], ",", "Sid"}], "]"}]}],
      ";", "\[IndentingNewLine]", 
     RowBox[{"VK", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOLc", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l5"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOLc", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l5"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOLc", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l5"}], "]"}], "[", 
            RowBox[{"[", "1", "]"}], "]"}], "//", "N"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOL", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l4"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"SOLc", "[", 
             RowBox[{"Vertex", ",", "l3", ",", "l5"}], "]"}], "[", 
            RowBox[{"[", "2", "]"}], "]"}], "//", "N"}]}], "}"}]}], 
       "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Element", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Map", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Vol", "[", 
                  RowBox[{
                   RowBox[{"VK", "[", 
                    RowBox[{"[", 
                    RowBox[{"z", ",", "x"}], "]"}], "]"}], ",", "#", ",", 
                   "1"}], "]"}], "&"}], ",", 
                RowBox[{"Subsets", "[", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"{", "3", "}"}]}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
            "Reals"}], "]"}], "&&", 
          RowBox[{"Element", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Map", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Vol", "[", 
                  RowBox[{
                   RowBox[{"VK", "[", 
                    RowBox[{"[", 
                    RowBox[{"z", ",", "x"}], "]"}], "]"}], ",", "#", ",", 
                   "1"}], "]"}], "&"}], ",", 
                RowBox[{"Subsets", "[", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"{", "4", "}"}]}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
            "Reals"}], "]"}], "&&", 
          RowBox[{"Element", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Map", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Vol", "[", 
                  RowBox[{
                   RowBox[{"VK", "[", 
                    RowBox[{"[", 
                    RowBox[{"z", ",", "x"}], "]"}], "]"}], ",", "#", ",", 
                   "0"}], "]"}], "&"}], ",", 
                RowBox[{"Subsets", "[", 
                 RowBox[{
                  RowBox[{"A", "[", 
                   RowBox[{"[", "x", "]"}], "]"}], ",", 
                  RowBox[{"{", "5", "}"}]}], "]"}]}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"x", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
            "Reals"}], "]"}]}], ",", 
         RowBox[{"VK", "[", 
          RowBox[{"[", "z", "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "1", ",", 
         RowBox[{"Length", "[", "VK", "]"}]}], "}"}]}], "]"}]}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.8241066883586717`*^9, 3.8241068646631885`*^9}, {
  3.8241071645060396`*^9, 3.8241071679280243`*^9}, {3.8241076514763374`*^9, 
  3.824107661194109*^9}, {3.825480595191395*^9, 3.8254806799216003`*^9}, {
  3.825480924331707*^9, 3.8254809286922426`*^9}, {3.825481087251012*^9, 
  3.825481089146862*^9}, {3.825481826362212*^9, 3.825481886099901*^9}, {
  3.825482772218791*^9, 3.8254827742834845`*^9}, {3.826574126194056*^9, 
  3.826574157539235*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"69850235-1da2-4e23-befc-4c70c9199bbb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DumpSave", "[", 
   RowBox[{"tempfile13", ",", 
    RowBox[{"{", 
     RowBox[{
     "Vertices", ",", "MVdistance", ",", "MVvertor", ",", "Vol", ",", "CMM", 
      ",", "vid", ",", "Vertex", ",", "Sid", ",", "SOL", ",", "SOLc", ",", 
      "SYM"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.824013043775469*^9, 3.8240130619554377`*^9}, {
  3.8240139677884846`*^9, 3.8240139755411873`*^9}, {3.8241078642930984`*^9, 
  3.824107917022148*^9}, {3.8241083810189033`*^9, 3.8241083908998594`*^9}, {
  3.8254819633626995`*^9, 3.8254819645119977`*^9}, {3.825482968757857*^9, 
  3.8254829722058697`*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"6c01a0ed-c53e-4a04-ac7b-64a4bf5a41d4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "TESTING", "*)"}], 
  RowBox[{"Vertices", "[", 
   RowBox[{"vid", ",", "Sid", ",", "Vertex", ",", 
    RowBox[{"Sqrt", "[", "10", "]"}], ",", 
    RowBox[{"Sqrt", "[", "30", "]"}], ",", 
    RowBox[{"Sqrt", "[", "10", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8254818946299176`*^9, 3.8254819145969343`*^9}, {
  3.8254819911722717`*^9, 3.8254820311514187`*^9}, {3.8254827827411747`*^9, 
  3.8254827837841797`*^9}, {3.8254828873758883`*^9, 3.825482904119773*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"5c12791b-72c1-45f8-93f2-2d97548f4e71"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.5233213960582226`"}], ",", "2.9105852128208287`", 
           ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.5233213960582226`"}], ",", "2.9105852128208287`", 
           ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.03173713094358656`", ",", "2.48032365849359`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}]}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.5233213960582226`"}], ",", "2.9105852128208287`", 
           ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.5233213960582226`"}], ",", "2.9105852128208287`", 
           ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.9123557404927147`", ",", "3.131789054773315`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}]}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5233213960582226`", ",", "2.9105852128208287`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5233213960582226`", ",", "2.9105852128208287`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.03173713094358656`", ",", "2.48032365849359`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}]}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"True", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5233213960582226`", ",", "2.9105852128208287`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.5233213960582226`", ",", "2.9105852128208287`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", 
           RowBox[{"-", "3.398088489694245`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", "0.`", ",", 
           RowBox[{"-", "2.942830956382712`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.`", ",", 
           RowBox[{"-", "2.7745276335252114`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.24028114141347542`"}], ",", 
           RowBox[{"-", "0.6936319083813028`"}], ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1.9123557404927147`", ",", "3.131789054773315`", ",", 
           RowBox[{"-", "0.9809436521275706`"}], ",", 
           RowBox[{"-", "1.6990442448471226`"}]}], "}"}]}], "}"}]}], "}"}]}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8254819157020397`*^9, {3.8254819677172213`*^9, 3.8254820030823593`*^9}, 
   3.825482041545402*^9, {3.825482776977928*^9, 3.825482784478258*^9}, {
   3.82548289160686*^9, 3.8254829063927855`*^9}, 3.825482978469017*^9, 
   3.8265742354195347`*^9, 3.826576072833026*^9},
 CellLabel->
  "Out[149]=",ExpressionUUID->"bce1f70f-129f-4fc3-96a5-1d3070ee1efc"]
}, Open  ]]
},
WindowSize->{1240, 853},
WindowMargins->{{-7, Automatic}, {Automatic, 0}},
Magnification:>1.05 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (2019\:5e744\:67088\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 248, 5, 49, "Input",ExpressionUUID->"71db4609-c829-4834-b1c4-1c1feed1af1c"],
Cell[809, 27, 9359, 242, 317, "Input",ExpressionUUID->"398a21c6-c9a3-4ee1-8c7d-444260a91e72"],
Cell[10171, 271, 175, 3, 30, "Input",ExpressionUUID->"5c9d6367-2d9b-4bcb-98f8-5cb4614f2d42"],
Cell[10349, 276, 325, 7, 49, "Input",ExpressionUUID->"e1070aa4-d539-4b8c-b081-7402b6b16374"],
Cell[10677, 285, 427, 11, 49, "Input",ExpressionUUID->"d70282d0-7995-4523-b08c-3a45a4e5f7a1"],
Cell[11107, 298, 458, 12, 30, "Input",ExpressionUUID->"58628041-6b46-49e7-b651-4abb3f7a373a"],
Cell[11568, 312, 1901, 57, 75, "Input",ExpressionUUID->"e80a3ff6-3336-4d4f-a00d-95c9256a2780"],
Cell[13472, 371, 3168, 97, 85, "Input",ExpressionUUID->"68b8b8fb-cf6f-4209-98ef-b208f8ed33c4"],
Cell[16643, 470, 1745, 51, 135, "Input",ExpressionUUID->"d2601902-6df0-4653-a0ef-ed3cfe9da0ae"],
Cell[18391, 523, 1098, 32, 113, "Input",ExpressionUUID->"869c2317-2333-40f1-90bf-ed23fe7798fc"],
Cell[19492, 557, 5606, 149, 447, "Input",ExpressionUUID->"ad538921-e09d-4dd7-a1d4-c57ba0f92e3f"],
Cell[25101, 708, 1502, 42, 157, "Input",ExpressionUUID->"19b11aa4-8a24-438f-b35a-d67d7ad30830"],
Cell[26606, 752, 1154, 34, 135, "Input",ExpressionUUID->"d0e2b5ef-98e0-4c6f-81b9-ad4ff82e8a0d"],
Cell[27763, 788, 6740, 174, 444, "Input",ExpressionUUID->"69850235-1da2-4e23-befc-4c70c9199bbb"],
Cell[34506, 964, 725, 15, 49, "Input",ExpressionUUID->"6c01a0ed-c53e-4a04-ac7b-64a4bf5a41d4"],
Cell[CellGroupData[{
Cell[35256, 983, 592, 12, 49, "Input",ExpressionUUID->"5c12791b-72c1-45f8-93f2-2d97548f4e71"],
Cell[35851, 997, 15236, 349, 598, "Output",ExpressionUUID->"bce1f70f-129f-4fc3-96a5-1d3070ee1efc"]
}, Open  ]]
}
]
*)

